supplied-by : d0< ( d -- flag )  nip 0< ;
